home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
eulisp
/
feel0_89.lha
/
Feel
/
Src
/
streams.h
< prev
next >
Wrap
C/C++ Source or Header
|
1993-07-15
|
637b
|
25 lines
/*
* streams.h
* header for new print/read junk
* External interface
*/
/* Standard streams... */
#ifndef NSTREAMS_H
#define NSTREAMS_H
extern LispObject std_streams;
#define StdIn() vref(std_streams,0)
#define StdOut() vref(std_streams,1)
#define StdErr() vref(std_streams,2)
#define MakeStdStreams() std_streams=allocate_vector(stacktop,3); add_root(&std_streams);
extern LispObject generic_prin,generic_write, generic_flush;
extern void initialise_streams(LispObject *);
LispObject print_string(LispObject *, LispObject, char *);
LispObject Fn_print(LispObject *);
LispObject Fn_read(LispObject *);
#endif